home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume91 / devices / irc_1_0 / part01 next >
Encoding:
Internet Message Format  |  1991-03-22  |  50.7 KB
  1. From: amiga-request@ab20.larc.nasa.gov (Amiga Sources/Binaries Moderator)
  2. Newsgroups: comp.sources.amiga
  3. Subject: v91i069: IRC 1.0 - IR remote reader, Part01/05
  4. Message-ID: <comp.sources.amiga:v91i069@ab20.larc.nasa.gov>
  5. Date: 22 Mar 91 15:16:06 GMT
  6. Approved: tadguy@uunet.UU.NET (Tad Guy)
  7.  
  8. Submitted-by: ron@vicorp.uucp (Ron Peterson)
  9. Posting-number: Volume 91, Issue 069
  10. Archive-name: devices/irc-1.0/part01
  11.  
  12. [ includes uuencoded iff file.  the file IRMasterImage.h was split to
  13.   allow posting; combine all IRMI.h.?? files to IRMasterImage.h ...tad ]
  14.  
  15. This code is an uncompleted version of an IR remote controlled AREXX
  16. utility.  It is uncompleted because no one wants to pay me to finish
  17. it (great sadness...)  I have placed it in the public domain as an
  18. example of how to read an IR remote control signal using the parallel
  19. port.
  20.  
  21. The code runs as it is on an Amiga 1000 with 1.5M of RAM (I suspect it
  22. will run in 512K also) when compiled using Lattice's V5.04 C compiler
  23. and asm assembler.  I've only run it under V1.2 of the operating
  24. system so I don't know how it will work under V1.3 and higher.  I've
  25. pulled out all the AREXX specific code so that you don't have to have
  26. AREXX to compile or run it.  The file Schematic.ilbm contains a simple
  27. electronics schematic for hooking a Radio Shack IR receiver to the
  28. parallel port on an A1000.  NOTE that if you have an Amiga other than
  29. an A1000 you must change the +5Vdc and gnd connections and use a male
  30. connector instead of a female.  I think the connections for other
  31. machines is pin 14 = +5Vdc and pin 25 = gnd but don't trust my
  32. memory---verify it!
  33.  
  34. ron@vicorp.com or uunet!vicorp!ron
  35.  
  36. #!/bin/sh
  37. # This is a shell archive.  Remove anything before this line, then unpack
  38. # it by saving it into a file and typing "sh file".  To overwrite existing
  39. # files, type "sh file -c".  You can also feed this as standard input via
  40. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  41. # will see the following message at the end:
  42. #        "End of archive 1 (of 5)."
  43. # Contents:  BackGround.c LetGo.asm Schematic.uu VERSION.h irc.c irc.h
  44. #   ircserver.asm linkirc readme tmp
  45. # Wrapped by tadguy@ab20 on Fri Mar 22 10:16:01 1991
  46. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  47. if test -f 'BackGround.c' -a "${1}" != "-c" ; then 
  48.   echo shar: Will not clobber existing file \"'BackGround.c'\"
  49. else
  50. echo shar: Extracting \"'BackGround.c'\" \(827 characters\)
  51. sed "s/^X//" >'BackGround.c' <<'END_OF_FILE'
  52. X/*----------------------- B a c k G r o u n d . c ----------------------*/
  53. X/* This routine draws the raised background for the user interface in   */
  54. X/* IRMaster.c.  It was put into a seperate module so that the Image     */
  55. X/* data could be seperated from the rest of the gadget, text, etc.      */
  56. X/* structures in order to be able to fit everything into the available  */
  57. X/* RAM space when compiling.                                            */
  58. X/*----------------------------------------------------------------------*/
  59. X
  60. X#include "irc.h"
  61. X#include "IRMasterImage.h"
  62. X
  63. Xextern struct RastPort *WRPort;
  64. X
  65. Xint BackGround()
  66. X{
  67. X   /*--- Draw raised background. */
  68. X
  69. X   DrawImage(WRPort, &Image53, (short)0, (short)0);
  70. X
  71. X   /*--- Draw border for help messages. */
  72. X
  73. X   DrawBorder(WRPort, &Border4, (short)0, (short)0);
  74. X
  75. X   return(0);
  76. X}
  77. END_OF_FILE
  78. if test 827 -ne `wc -c <'BackGround.c'`; then
  79.     echo shar: \"'BackGround.c'\" unpacked with wrong size!
  80. fi
  81. # end of 'BackGround.c'
  82. fi
  83. if test -f 'LetGo.asm' -a "${1}" != "-c" ; then 
  84.   echo shar: Will not clobber existing file \"'LetGo.asm'\"
  85. else
  86. echo shar: Extracting \"'LetGo.asm'\" \(1365 characters\)
  87. sed "s/^X//" >'LetGo.asm' <<'END_OF_FILE'
  88. X;
  89. X; LetGo.asm
  90. X;
  91. X; Reads from parallel port until detects a quiescent state.
  92. X;
  93. X        csect text
  94. X
  95. X    xdef _LetGo
  96. X
  97. X        xref _ciab
  98. X        xref _NSamples
  99. X
  100. X        xref _Forbid
  101. X        xref _Disable
  102. X        xref _Enable
  103. X        xref _Permit
  104. X
  105. Xdata1             equ   $bfe101
  106. Xdir1              equ   $bfe301
  107. X
  108. X_LetGo
  109. X;
  110. X; Save registers on stack.
  111. X;
  112. X         MOVEM.L A2-A6/D2-D7,-(SP)  ;  Push Registers 
  113. X;
  114. X; Set up parallel port for reading.
  115. X;
  116. X         move.b   #0,dir1           * all lines read
  117. X         move.b   #0,data1
  118. X;
  119. X; Read from parallel port until see no change for 10000 cycles.
  120. X;
  121. Xagain:  move.l   #$2710,_NSamples  ; Initialize the counter to BIG.
  122. X                                   ; FFF0 * .1397us/clock * 50 clocks = .5sec
  123. X        move.l   #0,d1             ; Zero the detection flag.
  124. X
  125. Xloop:   move.b   data1,d0          ; Move byte from parallel port to buffer.
  126. X        andi.b   #1,d0             ; Mask off bit of interest.
  127. X        bne      over
  128. X        addq.l   #$1,d1            ; Found a zero = still getting signal.
  129. Xover:   subq.l   #$1,_NSamples     ; Decrement counter.
  130. X        bne      loop              ; Loop if haven't done 10000 yet.
  131. X
  132. X        tst.l    d1                ; Still receiving signal?
  133. X        bne      again
  134. X;
  135. X; Clean up, restore registers and return.
  136. X;
  137. X        MOVEM.L (SP)+,A2-A6/D2-D7  ;  Pop Registers
  138. X        RTS
  139. X
  140. X        END
  141. END_OF_FILE
  142. if test 1365 -ne `wc -c <'LetGo.asm'`; then
  143.     echo shar: \"'LetGo.asm'\" unpacked with wrong size!
  144. fi
  145. # end of 'LetGo.asm'
  146. fi
  147. if test -f 'Schematic.uu' -a "${1}" != "-c" ; then 
  148.   echo shar: Will not clobber existing file \"'Schematic.uu'\"
  149. else
  150. echo shar: Extracting \"'Schematic.uu'\" \(6940 characters\)
  151. sed "s/^X//" >'Schematic.uu' <<'END_OF_FILE'
  152. Xbegin 666 Schematic.ilbm
  153. XM1D]230``$S1)3$)-0DU(1````!0"@`#(``````$``0````H+`H``R$--05``:
  154. XM```&````\/#P1%!05@```&@```````````%H```!0`#(``(`6@`)````"@``9
  155. XM``H````````````````````````````````````````````````````!``(`-
  156. XM`````````````````0`"``````````````````$``D-23D<````(```*J@`!M
  157. XM`0%#4DY'````"```"JH``0$!0U).1P````@```JJ``$``$-23D<````(```*.
  158. XMJ@`!``!#04U'````!```P`!"3T19```20K$`L0"Q`+$`L0"Q`+$`L0"Q`+$`S
  159. XML0"Q`+$`L0`&``/W`,``!_X``'#\``-P``#`_```!_X``.#[``C`P>'AX```O
  160. XM!_#]``!'^P`)<`'``,``P```P/H`_\$`P/T``@`"T_X```/^```P_```,/D`2
  161. XM!`,```&P_``)`>'#,S,P```#,/T``,/[``0P`,`!X/T``,#Y`/_`_0#_`$;#U
  162. XM8<'P`V'G8;,9YV'@`;'A\<';X`,9YV,Q\`&!YV`!X^`!X,-S<W````,!YV`!,
  163. XMX?-AYV`#,>&QX,`!XS'!V>&!\`,QXS`#&?[`_0#_`$;#L,,``[`SLW-8,[,PV
  164. XM`W,S`,,S,`-;,[-C``/#,[``,S`#,,/S\_````/#,[`#,,.S,[`#NS-S,,`#:
  165. XM,[C#,#`#``,S,S`#6/[`_0#_`$;#,,'@`S#S,S-8\S/P`S/QX,,S,`-;,S/!%
  166. XMX`&#,S``\S`#\,.SL[````,#,S`#,,,S\S`#6S,S\,`#\UC#,/`!X`,S,S`#-
  167. XM6/[`_0#_`$;#,,`P`S,S`S&S,P,``S,`,,'C,`&S,P-@,`&#,P`#,S`&&,,SF
  168. XM,S#```,#,P`#,-,S`P`#&S,S`,`&&QC!XS``,`'C,S`!L/[`_0!+``'G,>/@S
  169. XM!S'?@=FQWX'@`=GCX>8S,`&QYX<SX`/!YX`!VS`&&_'AX>#```>!YX`!X&<Q/
  170. XMYX`#&>'9X>`&&QGF,=@#X`#!X=@!L>'AX/T`[@`!`^#8``$#X/X``0.`]@"Q,
  171. XM`+$``0`'_``#0```!_L``$?^``,#]AAP_0``</X``'#Z``%`P/L``!SC``$`4
  172. XM`_P``\````/[``##_@`#PP88,/T``##^```P^@``P/H```SC`"4``V'C,>`!1
  173. XM\>`!XV'CX=G@`?-AX`##XS&QX`'CX;`!V^&P`>'CX_[A#/'!X^'P`'CX;`#,S
  174. XM?'CG``L``[`S,S``PS`#,[#^,Q,P`,.S,`/P,S-S,``S,W`#,S-P`_PS#3#`\
  175. XMPS,S```,S-P`S,#,YP`C``,P\S/P`,,P`P,P\S,S\`##,_``P#'C,P``\S,P]
  176. XM`S,S,`,#_C,.\P#`PS,QX``\S,P`S'C\YP`)``,S,>,``-,P`_XS%3'C``#39
  177. XM,P``PS'C,S`#,S,P`>,S,`/],P<#,-##,S`P`/[,`P#,#,#G`#4`!S'8P>``2
  178. XM8>`!YS';-C'@`&<QX``!X,'9X`';,=@&,S'8`>'C,S'AX&'AXS/@`';,=@!V&
  179. XM^'CG`/0``0/@\@`!`^#1`,,``#_^`/\.!@`.`#\```+\`,,`#!F````&!@`&N
  180. XM`!F```;\`,,`#1F/.P\&!@\&`!F/.P^`_0#[``G@``/C\`#Q^`/@^@``(-L`H
  181. XM#!\!G8&&!AF&`!\9G8;\`/L`"6```;&8`9F``;#Z``!@VP`,&`>9AX8&'X8`V
  182. XM&!F9AOP`_P`1\`&8\&#P`9F8`!GP`9@`\/'Q_O`"^/.PW0`-&!F8&88&&`8`,
  183. XM&!F8!H#]`/\`#A@!W!AAF`&9\?AP&`&8`?R9`YAAF=C=``0\#OP.S_X/!``\7
  184. XM#SP#_`#_``]X`:QX8?@!F9@`P!@!F`&!_ID$^8!AF9C+`!```9@!C9AA@`&Q&
  185. XMF`&9F`&P`?V9!8&8:9F`8,P`_P`8[`&,[/#P`^/P`?CP`^``\/&9F/#P,//`Q
  186. XM8,P`L0"Q`+T`_O\`P/D`O0`#@```0/D`O0`%@```0?!X^P"]``6```!`V,S[!
  187. XM`+T`!8>``$#,W/L`O0`%C,``0,S\^P"]``6`P`!`S.S[`+T`!8.``$#8S/L`6
  188. XMY```!]O_!88``$'P>/L`Y```!-L``XS``$#Y`.0```3;``./P`!`^0#D```$U
  189. XMVP`#@```0/D`Y```!-L``X```$#Y`.0```3;``.```!`^0#D```$VP`#@```;
  190. XM0/D`Y```!-L``X```$#Y`.0```3;``.```!`^0#D```$VP`#@```0/D`Y```:
  191. XM!-L``X```$#Y`.0```3;``.```!`^0#D```$VP`#@```0/D`Y```!-L``X``?
  192. XM`$#Y`.0```3;``.```!`^0#D```$VP`&@```0,'G,/P`Y``!'\#<``:#!X!!&
  193. XMXS,P_`#D``%_\-P`!H<,P$'F`V#\`.0``?_XW``&@PW`0S8#P/P`Y`#:_P:#=
  194. XM#\!#]@-@_`#D``'_^-P`!H,.P$8;,S#\`.0``7_PW``&@PS`1AGG,/P`Y``!2
  195. XM'\#<``./QX!`^0#D```$VP`#@```0/D`Y```!-L``X```$#Y`/L``!_Y__,`0
  196. XM``3;``.```!`^0#[``@0`PP``&```8'S```$VP`#@```0/D`^P`($`&8\9CX:
  197. XM``.!\P``!-L``X```$#Y`/L`"!`!F9F88``!@?,```3;``.```!`^0#[``@0S
  198. XM`/&9F&```8'S```$VP`#@```0/D`^P`($`#QF9AH``&!\_\`_-L``X```$#YV
  199. XM`/L`"!``8/#L,``!@<P``X```$#Y`/L``!#[``$'X<P``X```$#Y`/L``!#Z%
  200. XM```!S``#@```0/D`^P``$/H```',``.```!`^0#[``00``'[#/X```',``.`\
  201. XM``!`^0#[``@0`&&##````\',``.```!`^0#[``@0`&'QF```!F',``.```!`[
  202. XM^0#[``00`?@9F/X``&',``.```!`^0#[``@0`&`8\````</F_^<``X```$#Y@
  203. XM`/L`"!``89CP```#`><```'G``.```!`^0#[``@0``#P8```!F'G```!YP`#G
  204. XM@```0/D`^P``$/L``0?AYP```><``X```$#Y`/L``!#Z```!YP```><``X``+
  205. XM`$#Y`/L``!#Z```!YP```><``X```$#Y`/L``!#^```X_@```><```'G``.`<
  206. XM``!`^0#[```0_@`$&````\'G```!YP`#@```0/D`^P`($`#M\-@```9AYP``#
  207. XM`><``X```$#Y`/L`!!`!F9FX_@``8><```'G``.```!`^0#[``@0`9F9F```F
  208. XM`</8__4``X```$#Y`/L`!!``\9F8_@``8><```'T```!]0`#@```0/D`^P`(M
  209. XM$`,9F.P```9AYP```?0```'U``.```!`^0#[``(0`?#]``$#P><```'T```!"
  210. XM]0`#@```0/D`^P``$/H```'G```!]````?4``X```$#Y`/L``!#Z```!YP``R
  211. XM`?0```'U``.```!`^0#[```?^?_G```!]````?4`!H```$```'#\`-@```'T*
  212. XM```!]0#_AP2`0```,/P`V````?0```'U``:,S,!!V^&P_`#8```!]````?4`Y
  213. XM!H#`P$,S,W#\`-@```'T```!]?__@P2`0S,S,/P`V````><`!H8&`$'C,S#\-
  214. XM`-@```'G``:,S,!&,S'8_`#8```!YP`$C\_`0^#Z`/X``0/._0`'`\_!AF?C2
  215. XMS##I```!YP`#@```0/D`_@`!!F;]``<&9F.&9@9F8.D```'G``.```!`^0#^*
  216. XM``T'!L/.S<`,!F&&9\!CP.D```'G``.```!`^0#^``T#AV!G9F`,Y\&&8&'!F
  217. XM@.D```'G``.```!`^0#]``SF8>9F8`QF`89@8P/`Z0```><``X```$#Y`/X`3
  218. XM``;^9@4'P`9F`8;^9@!@Z0```><``X```$#Y`/X`#0/.8[\&``/O!^/CQ^PP@
  219. XMZ0```><``X```$#Y`/H```_@```!YP`#@```0/D`V````><``X```$#Y`-@`N
  220. XM``'G``.```!`^0#^``,'X`'`_0`&X`_````!@.H```'G``.```!`^0#^``,!0
  221. XM@`-@_0`"8`9@Y@```><``X```$#Y`/X`"@&'PP[#SL/#8`9C_L,#AF/.P.T`;
  222. XM``'G``6```!``_#[`/X`$0&&9X=@9V9FX`?&9F9AAF9G8.T```'G`/^'`H!`<
  223. XMP_H`_@`1`89C!F'F9^9@!L?F!^&&9^9@[0```><`!8S,P$##X/L`_@`0`89C&
  224. XM!@9F!@9@!F8&9@&#Q@;L```!Y_\%@,#`0_`P^P#^``H'YF>/`[\#P[`.,_[#A
  225. XM`L&#S]$`_X,#@$#`,/L`O0`%A@#`0,,P^P"]``6,S,!``>#[`+T``X_'@$#Y1
  226. XM`/T`$\_``.&```/.```.``/'X<`!@\?CU0`#@```0/D`_@`5`89@`&````9F/
  227. XM```&``9F8P`#AF9A@-8``X```$#Y`/X`%0,&8\-C@\`'!L/#QF``8&8``8!@_
  228. XM8,#6``.```!`^0#^`!(#!\!FX89@`X=@9F;``<#'Q^&!_L#6``.```!`^0#^N
  229. XM`!4#!L'F889@`.9AY@>``P&&8`&`88#`U@`#@```0/D`_@`'`89F9F&&8`;]`
  230. XM9@G`!F&&8`&&88&`U@`#@```0/D`_0`3SC.SL\/``\YCL\Y@!^&#P`?CP8/5T
  231. XM``.```!`^0"]``.```!`^0"]``.```!`^0"]``.```!`^0"]``.```!`^0"]=
  232. XM``.```!`^0"]``.```!`^0"]``.```!`^0"]``.```!`^0#^```_^```!_X`A
  233. XM``S\```<]@`%!`!P```$Y@`#@```0/D`_@``#/@```/X```,]@`%#``P```,%
  234. XMY@#^_P#`^0#^``(,`';^'O\S'AX^&P`S'QP^'8`>``P>/AV`/AYV=AXQ@!\S6
  235. XM-AX`'Q[;`/X``@P`._XS#CN[LS,W`#,P##,S``,`#/XS#@`S`SL[,S6`##,[V
  236. XM,P`,,]L`_@`4#``S/S`S-;6_,S,`,QX,,S,`#P`,_C,"`#,/_C,(-8`,,S,_!
  237. XM``PSVP#^`"8,`#`P,S,QL;`S,P`S`PPS'@`S``PS,QX`,S,P,#,;``TS,S``5
  238. XM#3/;`/X``C\`>/X>(#&QGC,=@!V^'C-C`!V`'AXS8P`S'?AX'AL`!AV>'@`&Z
  239. XM'ML`[@``/OL``#[,`+$`L0#^``D,```<``0```1P^P``#/T```[[``IP#```&
  240. XM!``<#`!P!-L`^P`&#``,```,,/8``!O[```P_@`&#``,```P#.P``0'\_@`&2
  241. XM<``!\?AX_/P`_@`,'!\>#!X?'@`?-AX`=OX>%APS'G8`&'8>,P`>,S8<'CX?/
  242. XM``P<';8?ZP``S/X`!C```-C,S,#\`/X`#`PP,PP###,`##LS`#O^,Q8,,S,[A
  243. XM`#P[,SN``SN[##,S#``,##,[#.L`"L!XS'@P>`#,S`SX_`#^`"8,'C,,#PP_&
  244. XM``PS/P`S/S`_##,_,P`8,S,U@`\ULPP_,PP`#`PS,PSK``KPS.X,,,P`S/@XQ
  245. XM#/P`_@`G#`,S##,-,``-,S``,#`S,`P>,#``&#`S,8`S,;,,,#,-``P,'C,-=
  246. XM#.P`"L#\UCPP_`#,S&`,_`#^``P>/AX>'88>``9S'@!X_1X6#!YX`#QX'C&`$
  247. XM';&>'AXS!@`>'F-S!@SL`/_`!<;,,,``V/[,_`#:```^Z@`+`>!XQG9X>`'Q9
  248. XM^/QX_`"Q`/X`!QYP#``<!P`'_@`!<!S\`!,<!P`,!`!P```$`'``!``,```,O
  249. XM!-H`_@`',S````P#``/^``$P#/P`#0P#``P,`#````P`,``,_0#_#-H`_@`E`
  250. XM.#8<'@P;'AL`'AXV#!X`,9XS#!L^&!\`-C-V'P`V,Q\`'!\^&!_K``,!\``0G
  251. XM]`#^`"4<.PPS##<S-P`S`SL,,P`ULS,,-S,`#``[,SL,`#LS#``,,#,`#.H`[
  252. XM`M@`,/0`_@`7!S,,/PPS/S,`,`\S##\`-;,S##,S``P`_C,*#``S,PP`#!XSU
  253. XM``SJ``7,`'S-N'CW`/X`_S,&##`,,S`S`/XS&0PP`!LS,PPS,P`-`#,S,`T`T
  254. XM,S,-``P#,P`-Z@`"S/PP_LSW`/X``1YS_AX@'9X=@!X=GAX>`!L>'9X=LP`&J
  255. XM`',=^`8`'AV&`!X^,P`&Z@`%S``PS,S\]P#!``78`#1X^,#W`,(`!@'P`!@P4
  256. XMP'CW`+X``>'@]@#T```._0`#<```!,<`]```&_T``S````S'`/X``#[^'O\?J
  257. XM$1YV,P`8'G8`'S8>=A\`=C,^']P``'C\```0^`#^`/TS_S`1`SLS`#PS.P`PC
  258. XM.S,[#``[,S,PW```S/P``##X`/X`#C,_,#\>'@\S,P`8,S,`'OXS`0P`_C,`[
  259. XM'MT`"0&`>/CX>'A\>=CZ`/X`&#,P,S`#`S,P'@`8,S```S,S,`T`,#,S`PS>K
  260. XM``$!@/S,`C#,[/H`_@``,_X>_SX2'?@,`#P>>``^<QYX!@!X';,^#-X``0&`\
  261. XM_LP$_,`PS,SZ`/8``#C-`/W,!,#,-,S`^@#!`/]X_\S_>`(8>>#Z`+$`L0"Q4
  262. X3`+$`L0"Q`+$`L0"Q`+$`L0"Q`,#,%
  263. X``
  264. Xend
  265. Xsize 4924
  266. END_OF_FILE
  267. if test 6940 -ne `wc -c <'Schematic.uu'`; then
  268.     echo shar: \"'Schematic.uu'\" unpacked with wrong size!
  269. fi
  270. # end of 'Schematic.uu'
  271. fi
  272. if test -f 'VERSION.h' -a "${1}" != "-c" ; then 
  273.   echo shar: Will not clobber existing file \"'VERSION.h'\"
  274. else
  275. echo shar: Extracting \"'VERSION.h'\" \(26 characters\)
  276. sed "s/^X//" >'VERSION.h' <<'END_OF_FILE'
  277. X
  278. X#define VERSION " V1.0"
  279. X
  280. END_OF_FILE
  281. if test 26 -ne `wc -c <'VERSION.h'`; then
  282.     echo shar: \"'VERSION.h'\" unpacked with wrong size!
  283. fi
  284. # end of 'VERSION.h'
  285. fi
  286. if test -f 'irc.c' -a "${1}" != "-c" ; then 
  287.   echo shar: Will not clobber existing file \"'irc.c'\"
  288. else
  289. echo shar: Extracting \"'irc.c'\" \(27153 characters\)
  290. sed "s/^X//" >'irc.c' <<'END_OF_FILE'
  291. X/*------------------------------- i r c . c  -------------------------------*/
  292. X/* Experimental interrupt handler.                                          */
  293. X/* This routine sets up a level 2 interrupt server that is triggered by the */
  294. X/* ACK pin of the parallel port going low.  The interrupt server then uses  */
  295. X/* Timer B in CIA-B to time reading in data from the parallel port.         */
  296. X/* The ACK and one data input pin on the parallel port are tied             */
  297. X/* together by the hardware I built.  Initially the ACK interrupt is        */
  298. X/* enabled and the software sits and waits for something to happen.         */
  299. X/*                                                                          */
  300. X/* NEED TO CHECK RESOURCES  ---- FREEMEM!!!!!!!!!!!!!!!!*/
  301. X/*--------------------------------------------------------------------------*/
  302. X 
  303. X/*--- Includes and Defines. */
  304. X
  305. X#include "irc.h"
  306. X#include "IRMaster.h"   /* Definitions of Screen, Window and gadgets. */
  307. X
  308. X/* DBG = 1 --> Turn on debug printf's, DBG = 0 --> Turn off debug printf's. */
  309. X#define DBG 1
  310. X/* Set DEBUG to 0 to comment out code related to opening screen and window.*/
  311. X#define DEBUG 1
  312. X
  313. X#define NOERROR 0
  314. X#define ERROR 1
  315. X/*--- NSAMPLES is the number of data samples to be read into buffer. */
  316. X#define NSAMPLES 3000
  317. X/*--- TOLERENCE is the number of samples difference that is tolerated in */
  318. X/*--- order to match two patterns. */
  319. X#define TOLERENCE 50
  320. X
  321. X/*--- External system variables. */
  322. X
  323. Xextern struct Custom custom;
  324. Xextern struct CIA ciab;
  325. X
  326. Xextern struct GfxBase *GfxBase;
  327. Xextern struct IntuitionBase *IntuitionBase;
  328. Xextern struct WBStartup *WBenchMsg;  /* For Workbench startup. */
  329. X
  330. X/**********************************************************/  
  331. X/***************** Timer B Interrupt code *****************/
  332. X/**********************************************************/  
  333. X/*
  334. X   Update Timer every TIME_SLICE microseconds.
  335. X   TIME_SLICE = 1.397 * (desired # of microseconds) [71 = 100us]
  336. X   71, 50 work.
  337. X*/
  338. X#define TIME_SLICE ((unsigned short)35)
  339. X
  340. X/* Defines to make the code more readable. */
  341. X
  342. X#define ciatlo        ciab.ciatblo
  343. X#define ciathi        ciab.ciatbhi
  344. X#define ciacr        ciab.ciacrb
  345. X#define ciaicr        ciab.ciaicr
  346. X
  347. Xint TimerSigBit = -1;   /* Allocated signal bit. */
  348. XULONG TimerSigMask;      /* TimerSigBit converted into a mask. */
  349. Xstatic struct Library *CIAResource = NULL;
  350. Xstruct Task *thisTask;
  351. X
  352. Xint NSamples;           /* Number of samples in buffer. */
  353. X
  354. Xint SetUpTimer()
  355. X{
  356. X   char temp;
  357. X   unsigned short micros;
  358. X
  359. X   /*--- Check to see if timer B in CIA-B is already in use. */
  360. X   /*--- If START bit is set timer is probably being used. */
  361. X
  362. X#if DBG
  363. X   printf("\n Timer B control register = %X",ciab.ciacrb);
  364. X#endif
  365. X   if(ciab.ciacrb & 0x01)
  366. X   {
  367. X      printf("\n Timer B is already allocated.  Proceding anyway.");
  368. X   }
  369. X
  370. X   /*--- Set latched value for timer to count down from. */
  371. X
  372. X   micros = TIME_SLICE;
  373. X#if DBG
  374. X   printf("\n Sampling interval = %d * 1.397 microseconds", micros);
  375. X#endif
  376. X   ciatlo = micros & 0xFF;
  377. X   ciathi = micros >> 8;
  378. X
  379. X   /*--- Get ID for this task so can send it a signal. */
  380. X
  381. X   thisTask = NULL;
  382. X   thisTask = FindTask(NULL);
  383. X   if(thisTask == NULL)
  384. X   {
  385. X      printf("\n Error - Can't find this task ID.");
  386. X      return(ERROR);
  387. X   }
  388. X
  389. X   /*--- Get a signal bit. */
  390. X
  391. X   if((TimerSigBit = AllocSignal(-1L)) == -1)
  392. X   {
  393. X      printf("\n Timer: AllocSignal failed.");
  394. X      StopTime();  /* Deallocate resources. */
  395. X      return(ERROR);
  396. X   }
  397. X   TimerSigMask = 1L << TimerSigBit;
  398. X
  399. X   /*--- Open the CIA resource. */
  400. X
  401. X   if((CIAResource = OpenResource(CIABNAME)) == NULL)
  402. X   {
  403. X      printf("\n Timer: Couldn't open %s.", CIABNAME);
  404. X      StopTime();  /* Deallocate resources. */
  405. X      return(ERROR);
  406. X   }
  407. X
  408. X   /*--- Interrupts have been enabled so may already */
  409. X   /*--- have an interrupt.  So do this... */
  410. X
  411. X   ciab.ciacrb &= ~CIACRBF_START;    /* stop timer */
  412. X
  413. X   temp = ciaicr;  /* Read IRC register to clear interrupt. */
  414. X
  415. X   SetSignal(0, TimerSigMask);    /* clear signal */
  416. X
  417. X#if DBG
  418. X   printf("\n About to set RUNMODE");
  419. X#endif
  420. X   ciacr &= ~CIACRBF_RUNMODE; /* Set it to reload upon underflow. */
  421. X   ciacr &= ~CIACRBF_PBON; /* Output line PB7 is left alone. */
  422. X   ciacr &= ~CIACRBF_INMODE0; /* Count clock pulses. */
  423. X   ciacr &= ~CIACRBF_INMODE1; /* Count clock pulses. */
  424. X
  425. X#if DBG
  426. X   printf("\n About to strobe LOAD");
  427. X#endif
  428. X   ciacr |= CIACRBF_LOAD; /* Strobe Load to latch in countdown value. */
  429. X
  430. X#if DBG
  431. X   printf("\n About to enable timer b interrupts");
  432. X#endif
  433. X   ciaicr = 0x7D;  /* Disable all other CIA-B interrupts. */
  434. X   ciaicr = CIAICRF_SETCLR|CIAICRF_TB;  /* Enable timer B interrupts. */
  435. X#if DBG
  436. X   printf("\n Enabled timer b interrupts");
  437. X#endif
  438. X
  439. X   return(NOERROR);
  440. X}
  441. X
  442. Xint StopTime()
  443. X{
  444. X   if(thisTask != NULL)
  445. X   {
  446. X      /*--- Disable timer B interrupts. */
  447. X
  448. X#if DBG
  449. X      printf("\n Stopping timer B.");
  450. X#endif
  451. X      ciaicr = CIAICRF_TB;
  452. X
  453. X      /*--- Halt timer. */
  454. X
  455. X      ciacr &= ~CIACRBF_START;
  456. X
  457. X      /*--- Free resources. */
  458. X
  459. X      if(TimerSigBit != -1)
  460. X      {
  461. X#if DBG
  462. X         printf("\n Freeing signal bit.");
  463. X#endif
  464. X         FreeSignal(TimerSigBit);
  465. X      }
  466. X   }
  467. X
  468. X   return(NOERROR);
  469. X}
  470. X
  471. X/**********************************************************/  
  472. X/***************** LEVEL 2 Interrupt code *****************/
  473. X/**********************************************************/  
  474. X
  475. Xextern void ircserver();
  476. Xstruct Interrupt intrpt;
  477. X
  478. Xint AddINT2Server()
  479. X{
  480. X   /*--- init NODE structure */
  481. X
  482. X   intrpt.is_Node.ln_Type = NT_INTERRUPT;
  483. X   /* Was 0 but glasses flickered.  3 fixed it. */
  484. X   intrpt.is_Node.ln_Pri  = 127;
  485. X   intrpt.is_Node.ln_Name = "WWB";
  486. X   intrpt.is_Code        = ircserver;
  487. X   intrpt.is_Data        = NULL;
  488. X
  489. X#if DBG
  490. X   printf("\n About to add interrupt server...");
  491. X#endif
  492. X
  493. X   AddIntServer(INTB_PORTS, &intrpt);        /* Add server to chain */
  494. X
  495. X#if DBG
  496. X   printf("\n Added interrupt server.");
  497. X#endif
  498. X
  499. X   return(NOERROR);
  500. X}
  501. X
  502. X
  503. Xint RemoveServer()
  504. X{
  505. X   RemIntServer(INTB_PORTS, &intrpt);
  506. X
  507. X   return(NOERROR);
  508. X}
  509. X
  510. X
  511. X/**********************************************************/  
  512. X/************************** MAIN **************************/
  513. X/**********************************************************/  
  514. X
  515. Xunsigned char *buffer;  /* Pointer to storage for data to be read in. */
  516. Xunsigned char zuffer[NSAMPLES];  /* Storage for data to be read in. */
  517. Xunsigned char pattern[20][NSAMPLES];  /* Stored signal patterns. */
  518. Xchar *address, mask;
  519. X
  520. Xstruct Screen *Screen = NULL;
  521. Xstruct Window *Window = NULL;
  522. Xstruct RastPort *WRPort;
  523. Xstruct ViewPort *WVPort;
  524. X
  525. Xstruct IntuiMessage *message;
  526. XULONG class;
  527. XUSHORT code;
  528. Xstruct Gadget *igad;
  529. XUSHORT gadget_id;
  530. Xextern int BackGround();
  531. Xint helptxt();
  532. Xint IRButtonOff();                 /* Unhighlight button. */
  533. Xint IRButtonOn();                  /* Highlight button. */
  534. Xint IRButtonLabel();               /* Relabel button. */
  535. Xint GetPattern();                  /* Get signal pattern. */
  536. Xint DisplayPattern();              /* Draw the signal pattern. */
  537. Xint DPattern();                    /* Debug. */
  538. X
  539. X/*--- Buffers for area fill and text. */
  540. X
  541. XWORD chip areaArray[100];  /* Max of 20 vertices times 5 words per vertex. */
  542. Xstruct AreaInfo myAreaInfo;
  543. XPLANEPTR workspace;
  544. Xstruct TmpRas myTmpRas;
  545. X
  546. X#define NOTHING 0
  547. Xint active[21] =  /* Used to remember which buttons have patterns. */
  548. X{ 
  549. X   FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
  550. X   FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
  551. X   FALSE
  552. X};
  553. X
  554. X
  555. X
  556. X
  557. Xmain(argc, argv)
  558. Xint argc;
  559. Xchar **argv;
  560. X{
  561. X   int it, error, iz, is, try;
  562. X   int diff[4], match, smallest;
  563. X   BOOL exitflag;
  564. X   int mode;  /* Current mode of program (LEARN, NOTHING, etc. ) */
  565. X   int IRButtonSelected = -1;         /* Index of button currently selected. */
  566. X
  567. X   /*--- Ignore CTRL-C and CTRL-D. */
  568. X
  569. X   signal(SIGINT, SIG_IGN);
  570. X
  571. X   /*--- Open graphics and Intuition Libraries. */
  572. X
  573. X   GfxBase = NULL;
  574. X   GfxBase = (struct GfxBase *)OpenLibrary("graphics.library", 33);
  575. X   if(GfxBase == NULL)
  576. X   {
  577. X      printf("\n Error opening graphics library.");
  578. X      goto ShutDown;
  579. X   }
  580. X
  581. X   IntuitionBase = NULL;
  582. X   IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 33);
  583. X   if(IntuitionBase == NULL)
  584. X   {
  585. X      printf("\n Error opening Intuition library.");
  586. X      goto ShutDown;
  587. X   }
  588. X
  589. X   /*--- Open a new screen. */
  590. X
  591. X   Screen = (struct Screen *) OpenScreen(&NewScreenStructure); 
  592. X   if(Screen == 0L)
  593. X   {
  594. X      printf("\n Error opening a new screen.");
  595. X      goto ShutDown;
  596. X   }
  597. X
  598. X#if DEBUG
  599. X   /*--- Open window in screen. */
  600. X
  601. X   NewWindowStructure1.Screen = Screen;
  602. X 
  603. X   Window = (struct Window *) OpenWindow(&NewWindowStructure1);
  604. X 
  605. X   if(Window == 0L)
  606. X   {
  607. X      printf("\nError opening a new window");
  608. X      goto ShutDown;
  609. X   }
  610. X
  611. X   /*--- Get pointers to window structures. */
  612. X
  613. X   WRPort = Window->RPort;   /* Get pointer to windows' RastPort. */
  614. X   WVPort = (struct ViewPort *)ViewPortAddress(Window); /* Get pointer to window viewport. */
  615. X
  616. X   /*--- Set up area fill and text work buffers. */
  617. X
  618. X   InitArea(&myAreaInfo, &areaArray[0], 20);
  619. X   WRPort->AreaInfo = &myAreaInfo;
  620. X
  621. X   workspace = AllocRaster(640, 200);
  622. X   if(workspace == 0)
  623. X   {
  624. X      printf("\n Error - No space for temporary raster.");
  625. X      goto ShutDown;
  626. X   } else
  627. X   {
  628. X      InitTmpRas(&myTmpRas, workspace, RASSIZE(640,200));
  629. X      WRPort->TmpRas = &myTmpRas;
  630. X   }
  631. X
  632. X   /*--- Set color map. */
  633. X
  634. X   LoadRGB4(WVPort, Palette, (SHORT)16);
  635. X
  636. X   /*--- Draw raised background areas. */
  637. X
  638. X   BackGround();
  639. X
  640. X   /*--- Redraw the gadgets on top of the raised background. */
  641. X
  642. X   RefreshGadgets(&ARexx, Window, 0);
  643. X#endif /*DEBUG*/
  644. X
  645. X   /*--- Allocate the parallel port resource so that other tasks know it  */
  646. X   /*--- is taken. (This might not be a good idea.  Online! allocates the */
  647. X   /*--- the parallel port and this prevents me from doing                */
  648. X   /*--- "copy file to par:" in a seperate window.  So leave it out for   */
  649. X   /*--- now.  User will know if one program walks over another.          */
  650. X
  651. X   /*****************
  652. X   MR_ALLOCMISCRESOURCE(MR_PARALLELPORT, "IRMaster");
  653. X   MR_ALLOCMISCRESOURCE(MR_PARALLELBITS, "IRMaster");
  654. X   *****************/
  655. X
  656. X   /*--- Set up pointer to data buffer for SoftHandler(). */
  657. X   /*--- Assembler doesn't seem to recognize zuffer but DOES buffer. */
  658. X
  659. X   buffer = &zuffer[0];
  660. X#if DBG
  661. X   printf("\n buffer = %X", buffer);
  662. X#endif
  663. X
  664. X   /*--- Set up all the interrupt servers. */
  665. X
  666. X   AddINT2Server();
  667. X
  668. X   error = SetUpTimer();
  669. X   if(error)goto Fini;
  670. X
  671. X   /*--- Explicitly enable level6 and level2 interrupts (even though */
  672. X   /*--- they already seem to be enabled by default).                */
  673. X
  674. X/********* Causes sometimes guru.
  675. X   Disable();
  676. X   custom.intena |= INTF_SETCLR | INTF_EXTER;
  677. X   custom.intena |= INTF_SETCLR | INTF_SOFTINT;
  678. X   Enable();
  679. X*********/
  680. X
  681. X#if DBG
  682. X   /* This is slightly dangerous since it might clear any pending interrupts. */
  683. X   /*printf("\n Enabled interrupts are: %X", custom.intenar);*/
  684. X#endif
  685. X
  686. X   /*--- Set address for IRC register (used in GetSample.) */
  687. X
  688. X   address = (char *)0xBFED01;/* Address of the Interrupt Control Register in 8520-A */
  689. X
  690. X   /*--- MAIN PROGRAM LOOP. */
  691. X   /*--- Get messages from window until user presses CloseWindow gadget. */
  692. X
  693. X#if DEBUG
  694. X   exitflag = FALSE;
  695. X   mode = NOTHING;
  696. X   while(exitflag == FALSE)
  697. X   {
  698. X      /*--- If in DOIT mode wait for IR input. */
  699. X 
  700. X      if(mode == DOIT)
  701. X      {
  702. X         /*--- Wait for user to press a button. */
  703. X
  704. X         GetSample();
  705. X
  706. X         /*--- Match input to stored samples. */
  707. X
  708. X         match = find_match();
  709. X      }
  710. X
  711. X      /*--- Check for user action. */
  712. X
  713. X      message = (struct IntuiMessage *)GetMsg(Window->UserPort);
  714. X      if(message != 0)
  715. X      {
  716. X         class = message->Class;
  717. X         code = message->Code;
  718. X         igad = (struct Gadget *)message->IAddress;/*get pointer to gadget */
  719. X         ReplyMsg((struct Message *)message);
  720. X
  721. X         if(class == GADGETUP)
  722. X         {
  723. X            gadget_id = igad->GadgetID;   /* get my gadget code */
  724. X            switch(gadget_id)
  725. X            {
  726. X               case COMMANDSTR3:
  727. X#if DBG
  728. X                  printf("COMMANDSTR3\n");
  729. X#endif
  730. X                  break;
  731. X
  732. X               case COMMANDSTR1:
  733. X#if DBG
  734. X                  printf("COMMANDSTR1 = %s\n", commandstr1SIBuff);
  735. X#endif
  736. X                  /*--- Change the label on the button. */
  737. X
  738. X                  IRButtonLabel(commandstr1SIBuff, IRButtonSelected);
  739. X
  740. X                  /*--- Prompt user for next action. */
  741. X
  742. X                  helptxt("Now press the button on your handheld IR remote control",
  743. X                     "that you want memorized.");
  744. X
  745. X                  /*--- Get verified signal sample from the IR receiver. */
  746. X
  747. X                  GetPattern(IRButtonSelected);
  748. X
  749. X                  /*--- Remember which buttons have patterns stored. */
  750. X
  751. X                  active[IRButtonSelected] = TRUE;
  752. X
  753. X                  /*--- Unhighlight the control button. */
  754. X
  755. X                  IRButtonOff(&IRButtonSelected);
  756. X                  mode = NOTHING;
  757. X
  758. X                  break;
  759. X
  760. X               case COMMANDSTR2:
  761. X#if DBG
  762. X                  printf("COMMANDSTR2\n");
  763. X#endif
  764. X                  break;
  765. X
  766. X              default:
  767. X                  break;
  768. X            } /* switch(gadget_id) */
  769. X         } /* if(GADGETUP) */
  770. X
  771. X         if(class == GADGETDOWN)
  772. X         {
  773. X            gadget_id = igad->GadgetID;   /* get my gadget code */
  774. X            switch(gadget_id)
  775. X            {
  776. X               case EXIT:
  777. X#if DBG
  778. X                  printf("EXIT\n");
  779. X#endif
  780. X                  goto Fini;
  781. X                  break;
  782. X
  783. X               case AUTHOR:
  784. X#if DBG
  785. X                  printf("AUTHOR\n");
  786. X#endif
  787. X                  break;
  788. X
  789. X               case DOIT:
  790. X#if DBG
  791. X                  printf("DOIT\n");
  792. X#endif
  793. X                  mode = DOIT;
  794. X                  break;
  795. X
  796. X               case GETSET:
  797. X#if DBG
  798. X                  printf("GETSET\n");
  799. X#endif
  800. X                  break;
  801. X
  802. X               case SAVESET:
  803. X#if DBG
  804. X                  printf("SAVESET\n");
  805. X#endif
  806. X                  break;
  807. X
  808. X               case LEARN:
  809. X#if DBG
  810. X                  printf("LEARN\n");
  811. X#endif
  812. X                  helptxt("Press one of the twenty control buttons above.","");
  813. X                  mode = LEARN;
  814. X                  break;
  815. X
  816. X               case AREXX:
  817. X#if DBG
  818. X                  printf("AREXX\n");
  819. X#endif
  820. X                  break;
  821. X
  822. X               case IR20:
  823. X               case IR19:
  824. X               case IR18:
  825. X               case IR17:
  826. X               case IR16:
  827. X               case IR15:
  828. X               case IR14:
  829. X               case IR13:
  830. X               case IR12:
  831. X               case IR11:
  832. X               case IR10:
  833. X               case IR9:
  834. X               case IR8:
  835. X               case IR7:
  836. X               case IR6:
  837. X               case IR5:
  838. X               case IR4:
  839. X               case IR3:
  840. X               case IR2:
  841. X               case IR1:
  842. X                  /*--- Unhighlight any currently selected button. */
  843. X
  844. X                  IRButtonOff(&IRButtonSelected);
  845. X
  846. X                  /*--- Set current button to highlight and highlight it. */
  847. X
  848. X                  IRButtonSelected = (gadget_id - IR1) + 1;
  849. X
  850. X                  IRButtonOn(IRButtonSelected);
  851. X#if DBG
  852. X                  printf("IR-%d\n", (gadget_id - IR1) + 1);
  853. X#endif
  854. X                  if(mode == LEARN)
  855. X                  {
  856. X                     /*--- Prompt user. */
  857. X
  858. X                     helptxt("Enter the label name for the control button,",
  859. X                        "then press RETURN.");
  860. X                  } else
  861. X                  {
  862. X                     helptxt("Please choose a function button first.", "");
  863. X                  }
  864. X                  break;
  865. X
  866. X
  867. X               default:
  868. X                  mode = NOTHING;
  869. X                  printf("Error - Got a hit on an unknown gadget\n");
  870. X                  printf(" Gadget id was: hex: %X  decimal: %d\n", gadget_id,
  871. X                     gadget_id);
  872. X                  break;
  873. X            } /* switch(gadget_id) */
  874. X         } /* if(message) */
  875. X      } /* if(class...) */
  876. X   } /* while(GetMsg) */
  877. X#endif /*DEBUG*/
  878. X
  879. X
  880. X#if DBG
  881. X   printf("\n Timer B control register = %X",ciab.ciacrb);
  882. X   printf("\n buffer = %X", buffer);
  883. X#endif
  884. X
  885. X   /*--- Shut down timer B */
  886. X
  887. XFini:
  888. X   StopTime();
  889. X
  890. X   /*--- Turn off the 8520's recognition of the ACK as an interrupt. */
  891. X
  892. X   mask = 0x10; /* Hex 10 = 00010000 Should disable the 8520 FLAG interrupt. */
  893. X   *address = mask;  /* Disable the interrupt. */
  894. X
  895. X   /*--- Remove the level2 interrupt server from server chain. */
  896. X
  897. X   RemoveServer();
  898. X
  899. X   /*--- Exit cleanly. */
  900. X
  901. XShutDown:
  902. X
  903. X   /*--- Deallocate parallel port resource. Commented out for reasons above. */
  904. X
  905. X   /*****************
  906. X   MR_FREEMISCRESOURCE(MR_PARALLELPORT);
  907. X   MR_FREEMISCRESOURCE(MR_PARALLELBITS);
  908. X   *****************/
  909. X
  910. X   /*--- Close window and screen. */
  911. X
  912. X#if DEBUG
  913. X   if(Window)CloseWindow(Window);
  914. X   if(Screen)CloseScreen(Screen);
  915. X#endif /*DEBUG*/
  916. X
  917. X   /*--- Close libraries. */
  918. X
  919. X   if(GfxBase)CloseLibrary((struct Library *)GfxBase);
  920. X   if(IntuitionBase)CloseLibrary((struct Library *)IntuitionBase);
  921. X
  922. X   /*--- Free allocated memory. */
  923. X#if DEBUG
  924. X   if(workspace != 0)FreeRaster(workspace, 640, 200);
  925. X#endif /*DEBUG*/
  926. X
  927. X   return(0);  /* To keep compiler happy. */
  928. X} /* End of main(). */
  929. X
  930. X
  931. X
  932. Xint GetSample()
  933. X{
  934. X   int idx;
  935. X
  936. X   /*--- Set up for taking another sample. */
  937. X
  938. X#if DBG
  939. X   printf("\n Setting up for next sample.");
  940. X#endif
  941. X   for(idx=0; idx<NSAMPLES; idx++)zuffer[idx] = 0; /* Zero the buffer. */
  942. X   NSamples = NSAMPLES;  /* Reset sample counter. */
  943. X   buffer = &zuffer[0];  /* Reset pointer to start of buffer. */
  944. X
  945. X   ciacr |= CIACRBF_LOAD; /* Strobe Load to latch in countdown value. */
  946. X   ciaicr = CIAICRF_SETCLR|CIAICRF_TB;  /* Enable timer B interrupts. */
  947. X   mask = *address;  /* Clear any pending interrupts. */
  948. X   mask = 0x90;  /* Hex 90 = 10010000 Should enable the 8520 FLAG interrupt. */
  949. X   *address = mask;  /* Enable the ACK interrupt. */
  950. X
  951. X   /*--- Interrupts are now all armed and dangerous.  */
  952. X   /*--- Wait until data is ready. */
  953. X
  954. X#if DBG
  955. X   printf("\n Waiting...press a button.");
  956. X#endif
  957. X   Wait(TimerSigMask);  /* Wait for full buffer. */
  958. X
  959. X   /*--- Stop timer B from counting. */
  960. X
  961. X#if DBG
  962. X   printf("\n Stopping timer B");
  963. X#endif
  964. X   ciacr &= ~CIACRBF_START;
  965. X
  966. X   /*--- Wait until user lets go of button. */
  967. X
  968. X   LetGo();
  969. X
  970. X   return(0);
  971. X}
  972. X
  973. X#if DEBUG
  974. X/*-------------------- h e l p t x t . c ------------------------*/
  975. X/* This routine clears the help message area and writes a new    */
  976. X/* message into it.                                              */
  977. X/*---------------------------------------------------------------*/
  978. X
  979. Xint helptxt(msg1, msg2)
  980. X  char *msg1, *msg2;
  981. X{
  982. X
  983. X   /*--- Erase any old text that exists. */
  984. X
  985. X   SetAPen(WRPort, 0);
  986. X   RectFill(WRPort, 24, 163, 617, 188);
  987. X
  988. X   /*--- Write new text. */
  989. X
  990. X
  991. X   SetAPen(WRPort, 1);
  992. X   Move(WRPort, 25, 173);
  993. X   Text(WRPort, msg1, strlen(msg1));
  994. X   Move(WRPort, 25, 185);
  995. X   Text(WRPort, msg2, strlen(msg2));
  996. X
  997. X   return(0);
  998. X}
  999. X
  1000. X/*---------------------- I R B u t t o n s O f f . c ---------------------*/
  1001. X/* This routine unhighlights any currently selected control button.       */
  1002. X/*------------------------------------------------------------------------*/
  1003. X
  1004. Xint IRButtonOff(button)
  1005. X  int *button;  /* Button to turn off. */
  1006. X{
  1007. X   USHORT position;
  1008. X
  1009. X   if((*button >= 1) && (*button <= 20))
  1010. X   {
  1011. X      /*--- Remove currently selected gadget from list. */
  1012. X
  1013. X      position = RemoveGList(Window, IR[*button-1], 1L);
  1014. X
  1015. X      /*--- Unselect the gadget. */
  1016. X
  1017. X      IR[*button-1]->Flags &= (~SELECTED);
  1018. X
  1019. X      /*--- Put the gadget back into the same place in the list. */
  1020. X
  1021. X      AddGList(Window, IR[*button-1], (LONG)position, 1L, NULL);
  1022. X
  1023. X      /*--- Refresh gadgets on display. */
  1024. X
  1025. X      RefreshGList(IR[*button-1], Window, NULL, 1L);
  1026. X
  1027. X      /*--- Set currently selected gadget to none. */
  1028. X
  1029. X      *button = -1;
  1030. X   }
  1031. X
  1032. X   return(TRUE);
  1033. X}
  1034. X
  1035. X
  1036. X/*---------------------- I R B u t t o n s O n . c -----------------------*/
  1037. X/* This routine highlights the currently selected control button.         */
  1038. X/*------------------------------------------------------------------------*/
  1039. X
  1040. X
  1041. Xint IRButtonOn(button)
  1042. X  int button;  /* Button number to highlight. */
  1043. X{
  1044. X   USHORT position;
  1045. X
  1046. X   if((button >= 1) && (button <= 20))
  1047. X   {
  1048. X      /*--- Remove the selected gadget from list. */
  1049. X
  1050. X      position = RemoveGList(Window, IR[button-1], 1L);
  1051. X
  1052. X      /*--- Select the gadget. */
  1053. X
  1054. X      IR[button-1]->Flags |= SELECTED;
  1055. X
  1056. X      /*--- Put the gadget back into the same place in the list. */
  1057. X
  1058. X      AddGList(Window, IR[button-1], (LONG)position, 1L, NULL);
  1059. X
  1060. X      /*--- Refresh gadgets on display. */
  1061. X
  1062. X      RefreshGList(IR[button-1], Window, NULL, 1L);
  1063. X   }
  1064. X
  1065. X   return(TRUE);
  1066. X}
  1067. X
  1068. X/*------------------- I R B u t t o n L a b e l . c -------------------*/
  1069. X/* This routine relabels the selected button.                          */
  1070. X/*---------------------------------------------------------------------*/
  1071. X
  1072. Xint IRButtonLabel(buffer, button)
  1073. X  UBYTE *buffer;
  1074. X  int button;
  1075. X{
  1076. X   USHORT position;
  1077. X
  1078. X   if((button >= 1) && (button <= 20))
  1079. X   {
  1080. X      /*--- Remove the selected gadget from list. */
  1081. X
  1082. X      position = RemoveGList(Window, IR[button-1], 1L);
  1083. X
  1084. X      /*--- Change the label. */
  1085. X
  1086. X      strncpy(IR[button-1]->GadgetText->IText , (char *)buffer, 7);
  1087. X
  1088. X      /*--- Put the gadget back into the same place in the list. */
  1089. X
  1090. X      AddGList(Window, IR[button-1], (LONG)position, 1L, NULL);
  1091. X
  1092. X      /*--- Refresh gadgets on display. */
  1093. X
  1094. X      RefreshGList(IR[button-1], Window, NULL, 1L);
  1095. X   }
  1096. X
  1097. X   return(TRUE);
  1098. X}
  1099. X
  1100. X
  1101. X/*------------------ G e t P a t t e r n . c ---------------------*/
  1102. X/* This routine gets a signal sample from the IR receiver and     */
  1103. X/* then tries up to four times to verify it.                      */
  1104. X/*----------------------------------------------------------------*/
  1105. X
  1106. XGetPattern(button)
  1107. X  int button;  /* Currently selected control button. */
  1108. X{
  1109. X   int it, iz, is, try;
  1110. X   int diff[4], match, smallest;
  1111. X
  1112. X#if DBG
  1113. X   printf("\n\n **** Storing pattern %d ****", button);
  1114. X#endif
  1115. X
  1116. X   /*--- Get a sample. */
  1117. X
  1118. X   GetSample();
  1119. X
  1120. X   /*--- Plot data on screen. */
  1121. X
  1122. X   helptxt("Data received.", "");
  1123. X   /*DPattern(button, 1);*/
  1124. X   DisplayPattern(button, 0);
  1125. X
  1126. X#if DBG
  1127. X   printf("\n NSamples=%d", NSamples);
  1128. X#endif
  1129. X
  1130. X   /*--- Transfer data to storage. */
  1131. X
  1132. X#if DBG
  1133. X   printf("\n Xferring to pattern memory.");
  1134. X#endif
  1135. X   for(iz=0; iz<NSAMPLES; iz++)
  1136. X   {
  1137. X      pattern[button-1][iz] = zuffer[iz] & 0x01;
  1138. X#if DBG
  1139. X/*
  1140. X      if(pattern[button-1][iz] == 1)printf("|");
  1141. X      if(pattern[button-1][iz] == 0)printf("_");
  1142. X*/
  1143. X#endif
  1144. X   }
  1145. X
  1146. X   helptxt("Press the button again to verify the pattern.", "");
  1147. X
  1148. X   match = 0;
  1149. X   for(try=0; try<4; try++)  /* Try four times to get a match. */
  1150. X   {
  1151. X      GetSample(); /* Read IR signal again. */
  1152. X
  1153. X      helptxt("Data received.  Verifying match.", "");
  1154. X/*   DPattern(button, try+2);*/
  1155. X      DisplayPattern(button, 1);
  1156. X
  1157. X      /*--- Find number of cells that don't match. */
  1158. X
  1159. X      diff[try] = 0;
  1160. X      smallest = NSAMPLES+10;
  1161. X      for(iz=0; iz<NSAMPLES; iz++)
  1162. X      {
  1163. X         zuffer[iz] = zuffer[iz] & 0x01;
  1164. X         if(pattern[button-1][iz] != zuffer[iz])
  1165. X         {
  1166. X            diff[try]++;
  1167. X         }
  1168. X#if DBG
  1169. X/*
  1170. X         if(zuffer[iz] == 1)printf("|");
  1171. X         if(zuffer[iz] == 0)printf("_");
  1172. X*/
  1173. X#endif
  1174. X      }
  1175. X      if(diff[try] > TOLERENCE)
  1176. X      {
  1177. X#if DBG
  1178. X         printf("\n Samples do not match:%d  Please try again.",diff[try]);
  1179. X#endif
  1180. X         helptxt("Samples do not match.  Please press button again.", "");
  1181. X         if(diff[try] < smallest)
  1182. X         {
  1183. X            /*--- Store the best pattern so far. */
  1184. X            smallest = diff[try];
  1185. X            for(iz=0; iz<NSAMPLES; iz++)
  1186. X            {
  1187. X               pattern[button-1][iz] = zuffer[iz];
  1188. X            }
  1189. X         }
  1190. X      } else
  1191. X      {
  1192. X         match = 1;
  1193. X         break;
  1194. X      }
  1195. X   }
  1196. X   if(match == 0)
  1197. X   {
  1198. X      helptxt("Could not verify pattern.  Will use the best match of four tries.", "");
  1199. X#if DBG
  1200. X      printf("\n Could not verify pattern.  Will use the best match.");
  1201. X      printf("\n Try the analyzer to verify compatability of your unit.");
  1202. X#endif
  1203. X   } else
  1204. X   {
  1205. X      helptxt("Successful pattern match!", "");
  1206. X      DisplayPattern(button, 0);
  1207. X   }
  1208. X
  1209. X   return(TRUE);
  1210. X}
  1211. X
  1212. X
  1213. X/*-------------------- D i s p l a y P a t t e r n . c ------------------*/
  1214. X/* This routine draws the acquired pattern on the screen in the help     */
  1215. X/* message area.                                                         */
  1216. X/*-----------------------------------------------------------------------*/
  1217. X
  1218. Xint DisplayPattern(button, mode)
  1219. X  int button;  /* Currently selected control button. */
  1220. X  int mode;    /* 0 = draw pattern, 1 = draw difference. */
  1221. X{
  1222. X   int it;
  1223. X   SHORT row;
  1224. X
  1225. X   /*--- Any old text or pattern that existed should have been erased with */
  1226. X   /*--- a help message. */
  1227. X
  1228. X   /*--- Draw pattern. X range = 24 to 617 */
  1229. X
  1230. X   SetAPen(WRPort, 1);
  1231. X   row = 0;
  1232. X   for(it=0; it<NSAMPLES; it++)
  1233. X   {
  1234. X      if(mode == 0)
  1235. X      {
  1236. X         if((zuffer[it] & 0x01) == 1)
  1237. X         {
  1238. X            Move(WRPort, 26 + (SHORT)(it%590), 175 + row);
  1239. X            Draw(WRPort, 26 + (SHORT)(it%590), 175 + row);
  1240. X         }
  1241. X      } else
  1242. X      {
  1243. X         if((zuffer[it] & 0x01) != pattern[button-1][it])
  1244. X         {
  1245. X            Move(WRPort, 26 + (SHORT)(it%590), 175 + row);
  1246. X            Draw(WRPort, 26 + (SHORT)(it%590), 175 + row);
  1247. X         }
  1248. X      }
  1249. X
  1250. X      /*--- Space the data in rows. */
  1251. X
  1252. X      if((it%590 == 0) &&(it != 0))row = row + 2;
  1253. X   }
  1254. X#if DBG
  1255. X   printf("\n Drew the pattern.");
  1256. X#endif
  1257. X
  1258. X   return(TRUE);
  1259. X}
  1260. X
  1261. X
  1262. X
  1263. Xint DPattern(button, mode)
  1264. X  int button;  /* Currently selected control button. */
  1265. X  int mode;    /* 0 = draw pattern, 1 = draw difference. */
  1266. X{
  1267. X   int it;
  1268. X   SHORT row;
  1269. X
  1270. X   /*--- Any old text or pattern that existed should have been erased with */
  1271. X   /*--- a help message. */
  1272. X
  1273. X   /*--- Draw pattern. X range = 24 to 617 */
  1274. X
  1275. X   SetAPen(WRPort, 1);
  1276. X   row = 0;
  1277. X   for(it=0; it<NSAMPLES; it++)
  1278. X   {
  1279. X      if((zuffer[it] & 0x01) == 1)
  1280. X      {
  1281. X         Move(WRPort, 26 + (SHORT)(it%590), 175 + row - mode*20);
  1282. X         Draw(WRPort, 26 + (SHORT)(it%590), 175 + row - mode*20);
  1283. X      }
  1284. X
  1285. X      /*--- Space the data in rows. */
  1286. X
  1287. X      if((it%590 == 0) &&(it != 0))row = row + 2;
  1288. X   }
  1289. X
  1290. X   return(TRUE);
  1291. X}
  1292. X#endif /*DEBUG*/
  1293. X
  1294. X/*-------------------- f i n d _ m a t c h . c ----------------------*/
  1295. X/*  Find pattern which is the closest match to the one just read in. */
  1296. X/*-------------------------------------------------------------------*/
  1297. X
  1298. Xint find_match()
  1299. X{
  1300. X   int match, it, smallest;
  1301. X   int diff, pat;
  1302. X
  1303. X#if DBG
  1304. X   printf("\n Matching patterns...");
  1305. X#endif
  1306. X
  1307. X   /*--- Mask of bit of interest in zuffer. */
  1308. X
  1309. X   for(it=0; it<NSAMPLES; it++)zuffer[it] = zuffer[it] & 0x01;
  1310. X
  1311. X   /*--- Compare data to stored patterns. */
  1312. X
  1313. X   match = -1;
  1314. X   smallest = NSAMPLES+10;
  1315. X   for(pat=0; pat<20; pat++)  /* Step through all stored patterns. */
  1316. X   {
  1317. X      if(active[pat+1])  /* Only examine active patterns to save time. */
  1318. X      {
  1319. X         diff = 0;
  1320. X         for(it=0; it<NSAMPLES; it++)
  1321. X         {
  1322. X            if(pattern[pat][it] != zuffer[it])diff++;
  1323. X         }
  1324. X      }
  1325. X      if(diff < smallest)
  1326. X      {
  1327. X         smallest = diff;
  1328. X         match = pat;
  1329. X      }
  1330. X#if DBG
  1331. X      printf("\n diff(%d)=%d", pat, diff);
  1332. X#endif
  1333. X   }
  1334. X
  1335. X#if DBG
  1336. X   printf("\n Best match is pattern %d", match);
  1337. X   if(match == -1)
  1338. X   {
  1339. X      printf("\n No match for pattern!");
  1340. X   }
  1341. X#endif
  1342. X
  1343. X   return(match);
  1344. X}
  1345. END_OF_FILE
  1346. if test 27153 -ne `wc -c <'irc.c'`; then
  1347.     echo shar: \"'irc.c'\" unpacked with wrong size!
  1348. fi
  1349. # end of 'irc.c'
  1350. fi
  1351. if test -f 'irc.h' -a "${1}" != "-c" ; then 
  1352.   echo shar: Will not clobber existing file \"'irc.h'\"
  1353. else
  1354. echo shar: Extracting \"'irc.h'\" \(948 characters\)
  1355. sed "s/^X//" >'irc.h' <<'END_OF_FILE'
  1356. X/*------------------------------ i r c . h ---------------------------------*/
  1357. X/* Include files and variable definitions for irc.c                         */
  1358. X/*--------------------------------------------------------------------------*/
  1359. X
  1360. X#include "stdio.h"
  1361. X#include "stdlib.h"   /* Contains alloc() and free() definitions. */
  1362. X#include "workbench/workbench.h"
  1363. X#define INTUITIONPRIVATE   /* Allow access to private parts of IntuitionBase. */
  1364. X#include "intuition/intuitionbase.h"
  1365. X#include "graphics/gfxbase.h"
  1366. X#include "graphics/rastport.h"
  1367. X#include "proto/all.h"  /* Do I really need this? */
  1368. X#include "exec/execbase.h"
  1369. X#include "exec/exec.h"
  1370. X#include <exec/types.h>
  1371. X#include <exec/tasks.h>
  1372. X#include <exec/interrupts.h>
  1373. X#include <exec/memory.h>
  1374. X#include "hardware/intbits.h"
  1375. X#include "hardware/custom.h"
  1376. X#include <hardware/cia.h>
  1377. X#include <resources/cia.h>
  1378. X#include "workbench/startup.h"
  1379. X#include "string.h"
  1380. X#include "signal.h"
  1381. X#include "VERSION.h"
  1382. X
  1383. END_OF_FILE
  1384. if test 948 -ne `wc -c <'irc.h'`; then
  1385.     echo shar: \"'irc.h'\" unpacked with wrong size!
  1386. fi
  1387. # end of 'irc.h'
  1388. fi
  1389. if test -f 'ircserver.asm' -a "${1}" != "-c" ; then 
  1390.   echo shar: Will not clobber existing file \"'ircserver.asm'\"
  1391. else
  1392. echo shar: Extracting \"'ircserver.asm'\" \(4686 characters\)
  1393. sed "s/^X//" >'ircserver.asm' <<'END_OF_FILE'
  1394. X;
  1395. X;  ircserver.asm
  1396. X;
  1397. X;  This Lattice V5.04 assembly language routine gets added to the
  1398. X;  level 2 interrupt server chain to deal with INT2 interrupts
  1399. X;  caused by bringing the ACK pin on the parallel port low.
  1400. X;
  1401. X;
  1402. X;  NOTE: Lattice asm doesn't like: move.l _irc, a1
  1403. X;          and DOES like: move.l _irc,a1
  1404. X;          Only difference is the space before "a1".
  1405. X; Also, calling an external Lattice C routine from assembly must be
  1406. X; done after the Enable(), Permit().  (Would probably work before
  1407. X; the Forbid(), Disable() too.)
  1408. X; To pass a variable which is a pointer to a C function use:
  1409. X;
  1410. X;          [struct Interrupt *SoftInterrupt; Cause(SoftInterrupt);]
  1411. X;
  1412. X;        move.l     _SoftInterrupt,a1   ; Put address of Interrupt structure
  1413. X;        move.l     a1,-(a7)            ; onto stack.
  1414. X;        JSR       _Cause
  1415. X;        ADDQ      #4,A7                ; Fix the stack pointer.
  1416. X;
  1417. X; To pass a variable which is NOT a pointer AS a pointer to a C function use:
  1418. X;
  1419. X;          [struct Interrupt SoftInterrupt; Cause(&SoftInterrupt);]
  1420. X;
  1421. X;        LEA       _SoftInterrupt,A1
  1422. X;        MOVE.L    A1,-(A7)
  1423. X;        JSR       _Cause
  1424. X;        ADDQ      #4,A7                ; Fix the stack pointer.
  1425. X;
  1426. X;
  1427. X;
  1428. X        csect data,1,,2,2
  1429. X        xref _LVOSignal
  1430. X
  1431. X        csect text
  1432. X
  1433. X    xdef _ircserver
  1434. X
  1435. X        xref _ciab
  1436. X        xref _SoftInterrupt
  1437. X        xref _thisTask
  1438. X        xref _TimerSigMask
  1439. X        xref _buffer
  1440. X        xref _NSamples
  1441. X
  1442. X        xref _Forbid
  1443. X        xref _Disable
  1444. X        xref _Enable
  1445. X        xref _Permit
  1446. X
  1447. X        xref _custom
  1448. X
  1449. Xdata1             equ   $bfe101
  1450. Xdir1              equ   $bfe301
  1451. X
  1452. X_ircserver
  1453. X;
  1454. X; Save registers on stack.
  1455. X;
  1456. X        MOVEM.L A2-A6/D2-D7,-(SP)  ;  Push Registers 
  1457. X;
  1458. X; Disable interrupts and tasking.
  1459. X;
  1460. X        JSR       _Forbid  ; RKM says this is a no-no but don't work without it.
  1461. X        JSR       _Disable
  1462. X; Machine is MINE now until I let it go!
  1463. X;
  1464. X;
  1465. X;  Read from parallel port to see if IR hardware triggered this interrupt.
  1466. X;  If not then let the server chain continue without further ado.
  1467. X;
  1468. X;
  1469. X; Set up parallel port for reading.
  1470. X;
  1471. X      move.b   #0,dir1           * all lines read
  1472. X      move.b   #0,data1
  1473. X      move.b   data1,d0       ; Move byte from parallel port to register.
  1474. X      andi.b   #$01,d0        ; Mask off bit 0.
  1475. X      beq      proceed        ; If bit is one, then proceed to capture data.
  1476. X
  1477. X      JSR       _Enable
  1478. X      JSR       _Permit  ; RKM says this is a no-no but don't work without it.
  1479. X      MOVEM.L (SP)+,A2-A6/D2-D7  ;  Pop Registers
  1480. X      MOVEQ     #$00,D0          ; Continue the server chain.
  1481. X      RTS
  1482. X;
  1483. X; Disable the ACK interrupt until after processing is done.
  1484. X; (Is re-enabled in irc.c)
  1485. X; Hex 10 = 00010000 Should disable the 8520 FLAG interrupt.
  1486. X;
  1487. Xproceed:   move.b  #$10,$BFED01
  1488. X;
  1489. X; Turn off the display so that DMA access for screen update doesn't
  1490. X; steal cycles from the 68000 processor.
  1491. X;  $0100 = clear BPLEN bit; custom+$96 = dmacon register
  1492. X;
  1493. X           move.w #$100,$96+_custom
  1494. X;
  1495. X; Start timer B.
  1496. X;
  1497. X        lea.l _ciab,a1      ; Get address of ciab
  1498. X        adda.l  #$F00,a1    ; Add offset for ciacrb register.
  1499. X        or.b #$01,(a1)      ; $01 = CIACRBF_START ---> Starts timer b!
  1500. X;
  1501. X; Read data from parallel port until buffer is full.
  1502. X;
  1503. Xhold: move.b    $bfdd00,d0  ; Read 8520 IRC register to get/reset interrupt bit
  1504. X      andi.l    #$02,d0     ; Mask off timer B interrupt bit.
  1505. X      beq       hold        ; Loop till get an interrupt.
  1506. X;
  1507. X; Read a byte from 8250-A (parallel port)  The data direction registers are
  1508. X; set up in SoftHandler.
  1509. X;
  1510. X      movea.l  _buffer,a1        ; a1 now holds buffer location
  1511. X      move.b   data1,(a1)+       ; Move byte from parallel port to buffer.
  1512. X      move.l   a1,_buffer        ; Update pointer to buffer.
  1513. X      subq.l   #$1,_NSamples     ; 8
  1514. X      bne      hold              ; Go wait for next timeout if buffer not full.
  1515. X
  1516. X      move.b #$02,$BFDD00   ; Disable timer B interrupts.
  1517. X      move.b    $bfdd00,d0  ; Read 8520 IRC register to reset interrupt bit.
  1518. X;
  1519. X; Turn on the display (enable bitplane DMA).
  1520. X;  $8100 = set BPLEN bit; custom+$96 = dmacon register
  1521. X;
  1522. X           move.w #$8100,_custom+$96
  1523. X;
  1524. X; Enable interrupts and tasking.
  1525. X;
  1526. X        JSR       _Enable
  1527. X        JSR       _Permit  ; RKM says this is a no-no but don't work without it.
  1528. X;
  1529. X; Signal main task to wake up.  Data is ready!
  1530. X;
  1531. X      move.l    _TimerSigMask,d0     ; Set up data in registers.
  1532. X      movea.l    _thisTask,a1
  1533. X      movea.l   $4,a6
  1534. X      jsr       _LVOSignal(a6)       ; Send signal (see note above.)
  1535. X;
  1536. X;
  1537. X; Clean up, restore registers and return.
  1538. X;
  1539. X        MOVEM.L (SP)+,A2-A6/D2-D7  ;  Pop Registers
  1540. X        MOVEQ     #$00,D0          ; Continue the server chain.
  1541. X        RTS
  1542. X
  1543. X        END
  1544. END_OF_FILE
  1545. if test 4686 -ne `wc -c <'ircserver.asm'`; then
  1546.     echo shar: \"'ircserver.asm'\" unpacked with wrong size!
  1547. fi
  1548. # end of 'ircserver.asm'
  1549. fi
  1550. if test -f 'linkirc' -a "${1}" != "-c" ; then 
  1551.   echo shar: Will not clobber existing file \"'linkirc'\"
  1552. else
  1553. echo shar: Extracting \"'linkirc'\" \(100 characters\)
  1554. sed "s/^X//" >'linkirc' <<'END_OF_FILE'
  1555. XFROM LIB:c.o+irc.o+ircserver.o+LetGo.o+BackGround.o
  1556. XTO irc
  1557. XLIBRARY LIB:lc.lib+LIB:amiga.lib
  1558. XNODEBUG
  1559. END_OF_FILE
  1560. if test 100 -ne `wc -c <'linkirc'`; then
  1561.     echo shar: \"'linkirc'\" unpacked with wrong size!
  1562. fi
  1563. # end of 'linkirc'
  1564. fi
  1565. if test -f 'readme' -a "${1}" != "-c" ; then 
  1566.   echo shar: Will not clobber existing file \"'readme'\"
  1567. else
  1568. echo shar: Extracting \"'readme'\" \(1922 characters\)
  1569. sed "s/^X//" >'readme' <<'END_OF_FILE'
  1570. XThis code is an uncompleted version of an IR remote controlled AREXX
  1571. Xutility.  It is uncompleted because no one wants to pay me to finish
  1572. Xit (great sadness...)  I have placed it in the public domain as an example
  1573. Xof how to read an IR remote control signal using the parallel port.
  1574. XI take no responsibility for the correctness or usability of this
  1575. Xcode.  I would apologize for the funkyness of it but I'm giving
  1576. Xit to you for free so just be glad I'm reasonably free with comments
  1577. Xas to what's going on in it.
  1578. XThe code runs as it is on an Amiga 1000 with 1.5M of RAM (I suspect it
  1579. Xwill run in 512K also) when compiled using Lattice's V5.04 C compiler
  1580. Xand asm assembler.  I've only run it under V1.2 of the operating
  1581. Xsystem so I don't know how it will work under V1.3 and higher.
  1582. XI've pulled out all the AREXX specific code so that you don't have
  1583. Xto have AREXX to compile or run it.  The file Schematic.ilbm contains
  1584. Xa simple electronics schematic for hooking a Radio Shack IR receiver
  1585. Xto the parallel port on an A1000.  NOTE that if you have an Amiga
  1586. Xother than an A1000 you must change the +5Vdc and gnd connections and
  1587. Xuse a male connector instead of a female.  I think the connections
  1588. Xfor other machines is pin 14 = +5Vdc and pin 25 = gnd but don't
  1589. Xtrust my memory---verify it!
  1590. XTo try the code, plug in the hardware with the computer off, boot
  1591. Xthe computer, run the code, click on the LEARN button, then click
  1592. Xon one of the 20 buttons in the upper right, enter a short name
  1593. Xin the text requestor (next to the AREXX button) hit return and
  1594. Xthen press a button on your IR remote (you'll have press it twice
  1595. Xso that it can be verified.)  The pattern of the digitized data
  1596. Xwill be drawn on the screen followed by the pattern of the
  1597. Xdifferences between the first and second samples.  The code prompts
  1598. Xyou for most of this.  The rest of it I'll let you figure out for
  1599. Xyourselves.  Have fun!
  1600. X
  1601. Xron@vicorp.com or uunet!vicorp!ron
  1602. END_OF_FILE
  1603. if test 1922 -ne `wc -c <'readme'`; then
  1604.     echo shar: \"'readme'\" unpacked with wrong size!
  1605. fi
  1606. # end of 'readme'
  1607. fi
  1608. if test -f 'tmp' -a "${1}" != "-c" ; then 
  1609.   echo shar: Will not clobber existing file \"'tmp'\"
  1610. else
  1611. echo shar: Extracting \"'tmp'\" \(124 characters\)
  1612. sed "s/^X//" >'tmp' <<'END_OF_FILE'
  1613. X;
  1614. Xasm ircserver.asm
  1615. Xasm LetGo.asm
  1616. X;
  1617. Xlc -cc -ff -adb irc
  1618. Xlc -cc -ff -adb BackGround
  1619. X;
  1620. X; Link with BLINK
  1621. X;
  1622. Xblink with linkirc
  1623. END_OF_FILE
  1624. if test 124 -ne `wc -c <'tmp'`; then
  1625.     echo shar: \"'tmp'\" unpacked with wrong size!
  1626. fi
  1627. # end of 'tmp'
  1628. fi
  1629. echo shar: End of archive 1 \(of 5\).
  1630. cp /dev/null ark1isdone
  1631. MISSING=""
  1632. for I in 1 2 3 4 5 ; do
  1633.     if test ! -f ark${I}isdone ; then
  1634.     MISSING="${MISSING} ${I}"
  1635.     fi
  1636. done
  1637. if test "${MISSING}" = "" ; then
  1638.     echo You have unpacked all 5 archives.
  1639.     rm -f ark[1-9]isdone
  1640. else
  1641.     echo You still need to unpack the following archives:
  1642.     echo "        " ${MISSING}
  1643. fi
  1644. ##  End of shell archive.
  1645. exit 0
  1646. -- 
  1647. Mail submissions (sources or binaries) to <amiga@uunet.uu.net>.
  1648. Mail comments to the moderator at <amiga-request@uunet.uu.net>.
  1649. Post requests for sources, and general discussion to comp.sys.amiga.misc.
  1650.